home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / scroll / lametro.ajo next >
Text File  |  2002-04-21  |  2KB  |  72 lines
  1. #lametro for iaiov0.7+
  2. #beha'02
  3. #liczba gwiazdek na kolor:
  4. set[5,25]
  5.  
  6. openscreen[0]=350/256/3/l/topaz.font/;
  7. loadbank[0,0]=work:+jajo_house/dealer_0.7/iaio_v0.7/examples/scroll/scroll.txt;
  8. set[6,$90] : setcol[0,0,0,0,0] : initrnd
  9. setcol[0,1,$50,$50,$50] : setcol[0,2,$90,$90,$90] : setcol[0,3,$F0,$F0,$F0]
  10.  
  11. set[3,!5] : #losujemy x,y
  12. -loop1:
  13. initrnd : random[0,320] : initrnd : random[1,256]
  14. setpen[0,1,0,0] : writepixel[0,!0,!1]
  15. initrnd : random[0,320] : initrnd : random[1,256]
  16. setpen[0,2,0,0] : writepixel[0,!0,!1]
  17. initrnd : random[0,320] : initrnd : random[1,256]
  18. setpen[0,3,0,0] : writepixel[0,!0,!1]
  19. sub[3,1] : nocase[3,0,loop1]
  20.  
  21. delay[100] : fadetowhite[0,0] : fadetoblack[0,0]
  22. set[0,$20] : set[1,$80] : set[2,$90]
  23.  
  24. -mainloop:
  25. add[5,1] : add[6,1] : sub[7,1] : setcol[0,5,!5,!6,!7]
  26. scroll[0,0,223,350,240,1,0] : add[8,1] : case[8,8,ustaw]
  27. -go:
  28. add[0,1] : sub[1,1] : add[2,1]
  29. setcol[0,1,!0,!0,!0] : setcol[0,2,!1,!1,!1] : setcol[0,3,!2,!2,!2]
  30. case[0,255,ustaw1] : case[1,0,ustaw2] : case[2,255,ustaw3]
  31. onlmb[end] : jump[mainloop]
  32.  
  33. -ustaw:
  34. getbyte[0,0,!9] : add[9,1] : case[0,10,scrollrestart]
  35. move[0,340,232] : setpen[0,5,0,0,0] : putbyte[0,0] : set[8,0] : jump[go]
  36.  
  37. -scrollrestart:
  38. set[9,0] : jump[ustaw]
  39.  
  40. -ustaw1:
  41. set[0,0] : return
  42. -ustaw2:
  43. set[1,255] : return
  44. -ustaw3:
  45. set[2,0] : return
  46.  
  47. -end:
  48. #fadetoblack[0,0]
  49. setcol[0,1,255,255,255] : set[0,0] : set[1,10] : setpen[0,1,0,0]
  50.  
  51. -loop: 
  52. rectfill[0,!0,0,!1,256]:add[0,10]:add[1,10]:delay[1]:nocase[0,360,loop]
  53.  
  54. setpen[0,0,0,0]
  55. -loop2:
  56. sub[0,20]
  57. sub[1,20]
  58. rectfill[0,!0,0,!1,256]
  59. delay[1]
  60. nocase[0,0,loop2]
  61.  
  62. add[0,10]
  63. add[1,10]
  64. -loop3:
  65. rectfill[0,!0,0,!1,256]
  66. add[0,20]
  67. add[1,20]
  68. delay[1]
  69. nocase[0,330,loop3]
  70.  
  71. freebank[0] : closescreen[0] : quit
  72.